<% Head() dim admin_flag admin_flag=",36," If Not Dvbbs.master or instr(","&session("flag")&",",admin_flag)=0 Then Errmsg=ErrMsg + "
  • 本页面为管理员专用，请登录后进入。
  • 您没有管理本页面的权限。" dvbbs_error() Else Call main() Footer() End if Sub main() If request("action")="save" Then call savenew() ElseIf request("action")="savedit" Then call savedit() ElseIf request("action")="del" Then call del() ElseIf request("action")="AddNew" OR request("action")="edit" Then AddNew() Else call gradeinfo() End If End Sub Sub AddNew() dim trs Dim PSetting Dim Groupids %> " name="id"> <% If UBound(PSetting)>2 Then PSetting(3)=Split(PSetting(3),",") %> <% Else %> <% End If %> <%else%> <% end if %>
    论坛插件菜单管理
    注意：这里所添加内容将自动显示于论坛前台的顶部菜单
    菜单管理首页 <%if request("action")="edit" then Set tRs=Dvbbs.Execute("Select * From Dv_Plus Where id="&request("id")&"") PSetting=Split(Server.HTMLEncode(tRs("Plus_Setting")),"|||") PSetting(0)=split(PSetting(0),"|") %> | 编辑菜单 | 新建菜单
    标题： "> 可用HTML语法
    是否在导航中显示： 是 checked <% End If %> > 否 checked <% End If %> >
    分类： 不选择则将做为一级菜单
    注释： "> 显示于链接上的title注释，也是插件的版权信息
    模式：    窗口宽：    窗口高：
    链接： ">
    后台管理链接： ">
    插件常规设置
    插件ID  " size="20">这是你插件的唯一的标识，注意不能有重复的。 获得插件ID和信息
    是否定时开放   是 > 否 >
    定时开放起止时间  
    能使用插件的用户组   " size=30>这里设置可以使用插件的用户组
    管理人员  
    这里设置插件的管理员，每个用户名用回车分隔开.系统默认论坛管理员可以管理插件，如果您不需要另外设置管理员，此项可以不填。
    限制项
    能使用插件的最少文章   size=5>
    能使用插件的最低金钱   size=5>
    能使用插件的最低经验   size=5>
    能使用插件的最低魅力   size=5>
    能使用插件的最低威望   size=5>
    更新项
    每次使用插件金钱变化   size=5>
    每次使用插件经验变化   size=5>
    每次使用插件魅力变化   size=5>
    每次使用插件威望变化   size=5>
    是否定时开放   是 否
    定时开放起止时间  
    能使用插件的用户组   这里设置可以使用插件的用户组
    管理人员  
    这里设置插件的管理员，每个用户名用回车分隔开.系统默认论坛管理员可以管理插件，如果您不需要另外设置管理员，此项可以不填。
    限制项
    能使用插件的最少文章  
    能使用插件的最低金钱  
    能使用插件的最低经验  
    能使用插件的最低魅力  
    能使用插件的最低威望  
    更新项
    每次使用插件金钱变化  
    每次使用插件经验变化  
    每次使用插件魅力变化  
    每次使用插件威望变化  
    注意，如果用户组中的客人组(ID为7)设置为可进入，那么所有的限制项无效。
    更新项中如果是客人可使用，对客人无效
    插件自定权限设置
    说明：由于每个插件的设置不可能完全一样，设置字段的定义也不一样，这些都交给插件作者自行修改了。
    添加菜单
    标题： 可用HTML语法
    是否在导航中显示： 是 否
    分类： 不选择则将做为一级菜单
    注释： 显示于链接上的title注释,也是插件的版权信息
    模式：    窗口宽：    窗口高：
    链接：
    后台管理链接：
    插件常规设置
    插件ID  这是你插件的唯一的标识，注意不能有重复的。 获得插件ID和信息
    是否定时开放   是 否
    定时开放起止时间  
    能使用插件的用户组   这里设置可以使用插件的用户组
    管理人员  
    这里设置插件的管理员，每个用户名用回车分隔开.系统默认论坛管理员可以管理插件，如果您不需要另外设置管理员，此项可以不填。
    限制项
    能使用插件的最少文章  
    能使用插件的最低金钱  
    能使用插件的最低经验  
    能使用插件的最低魅力  
    能使用插件的最低威望  
    更新项
    每次使用插件金钱变化  
    每次使用插件经验变化  
    每次使用插件魅力变化  
    每次使用插件威望变化  
    注意，如果用户组中的客人组(ID为7)设置为可进入，那么所有的限制项无效。
    更新项中如果是客人可使用，对客人无效
    插件自定义扩展设置
    说明：由于每个插件的设置不可能完全一样，设置字段的定义也不一样，这些都交给插件作者自行修改了。

    <% Call Select_Group(Replace(Groupids&"","@",",")) End Sub sub gradeinfo() dim trs Dim PSetting %> <% Set Rs=Dvbbs.Execute("Select * From Dv_Plus Order by ID Desc") Do While Not Rs.Eof PSetting=Split(Rs("Plus_Setting"),"|") %> <% Rs.MoveNext Loop Set Rs=Nothing end sub sub savenew() Dim plusID,plus_adminpage,Isuse plusID=Trim(Request("plusID")) If InStr(plusID,"'") >0 Then Response.Write "插件ID中不允许有单引号" exit sub End If If request("title")="" then Response.Write "请输入菜单的标题！" exit sub End If If plusID="" Then Response.Write "请设定插件ID" exit sub End If SQL="Select count(*) From Dv_plus where plus_ID='"&plusID&"'" Set rs=Dvbbs.execute(SQL) If Rs(0) >0 Then Response.Write "你设置的插件ID已经存在，请另行设置。" exit sub End If Isuse=Request("Isuse") If Isuse<>"1" And Isuse<>"0" Then Isuse="1" Isuse=CInt(Isuse) plus_adminpage=Dvbbs.checkStr(Request("plus_adminpage")) Dim Plus_SettingData,Plus_Setting,i,tmpstr Plus_Setting=Request("Plus_Setting") Plus_Setting=Split(Plus_Setting,vbCrLf) Plus_SettingData="" For i=0 to UBound(Plus_Setting) Plus_Setting(i)=Split(Plus_Setting(i),"=") If UBound(Plus_Setting(i))=1 Then If Plus_SettingData="" Then Plus_SettingData=Trim(Plus_Setting(i)(1)) tmpstr=Trim(Plus_Setting(i)(0)) Else Plus_SettingData=Plus_SettingData&","&Trim(Plus_Setting(i)(1)) tmpstr=tmpstr&","&Trim(Plus_Setting(i)(0)) End If End If Next Plus_SettingData=Plus_SettingData&"|||"&tmpstr&"|||" Dim plusmaster,masterlist plusmaster=Request("plusmaster") plusmaster=split(plusmaster,vbCrLf) masterlist="" For i=0 to UBound(plusmaster) If Trim(plusmaster(i)) <>"" Then If masterlist="" Then masterlist=plusmaster(i) Else masterlist=masterlist&"|"&plusmaster(i) End If End If Next Dim useTime,timesetting,Groupsetting,Plus_UserPost,Plus_userWealth,Plus_UserEP,Plus_UserCP Dim Plus_UserPower,Plus_ADDuserWealth,Plus_ADDUserEP,Plus_ADDUserCP,Plus_ADDUserPower,guestuse useTime=Request("useTime") If useTime="" Then useTime=0 timesetting=Trim(Request("timesetting")) If timesetting="" Then timesetting="0|24" Groupsetting=Replace(Trim(Request("groupid"))&"",",","@") Plus_UserPost=Trim(Request("Plus_UserPost")) If Plus_UserPost="" Then Plus_UserPost=0 Plus_userWealth=Trim(Request("Plus_userWealth")) If Plus_userWealth="" Then Plus_userWealth=0 Plus_UserEP=Trim(Request("Plus_UserEP")) If Plus_UserEP="" Then Plus_UserEP=0 Plus_UserCP=Trim(Request("Plus_UserCP")) If Plus_UserCP="" Then Plus_UserCP=0 Plus_UserPower=Trim(Request("Plus_UserPower")) If Plus_UserPower="" Then Plus_UserPower=0 Plus_ADDuserWealth=Trim(Request("Plus_ADDuserWealth")) If Plus_ADDuserWealth="" Then Plus_ADDuserWealth=0 Plus_ADDUserEP=Trim(Request("Plus_ADDUserEP")) If Plus_ADDUserEP="" Then Plus_ADDUserEP=0 Plus_ADDUserCP=Trim(Request("Plus_ADDUserCP")) If Plus_ADDUserCP="" Then Plus_ADDUserCP=0 Plus_ADDUserPower=Trim(Request("Plus_ADDUserPower")) If Plus_ADDUserPower="" Then Plus_ADDUserPower=0 guestuse=Request("guestuse") tmpstr=useTime&","×etting&","&Groupsetting&","&masterlist&","&plus_UserPost&"," tmpstr=tmpstr&Plus_userWealth&","&Plus_UserEP&","&Plus_UserCP&","&Plus_UserPower&"," tmpstr=tmpstr&Plus_ADDuserWealth&","&Plus_ADDUserEP&","&Plus_ADDUserCP&","&Plus_ADDUserPower&","&guestuse Plus_SettingData=Plus_SettingData&tmpstr set rs=server.createobject("adodb.recordset") sql="select * from dv_plus" rs.open sql,conn,1,3 rs.addnew Rs("plus_ID")=plusID rs("plus_type")=request("stype") rs("plus_name")=replace(request("title"),CHR(34),"") rs("isuse")=Isuse rs("IsShowMenu")=1 rs("Mainpage")=replace(request("url"),CHR(34),"") rs("plus_Copyright")=replace(request("readme"),CHR(34),"") rs("Plus_Setting")=request("windowtype") & "|" & request("windowwidth") & "|" & request("windowheight")&"|||"&Plus_SettingData Rs("plus_adminpage")=plus_adminpage rs.update rs.close set rs=nothing dv_suc("新建论坛菜单成功") LoadForumPlusMenuCache End sub sub savedit() Dim plusID,plus_adminpage,Isuse plusID=Trim(Request("plusID")) If InStr(plusID,"'") >0 Then Response.Write "插件ID中不允许有单引号" exit sub End If If request("title")="" then Response.Write "请输入菜单的标题！" exit sub End If If plusID="" Then Response.Write "请设定插件ID" exit sub End If SQL="Select count(*) From Dv_plus where plus_ID='"&plusID&"' and id<>"&request("id")&"" Set rs=Dvbbs.execute(SQL) If Rs(0) >0 Then Response.Write "你设置的插件ID已经存在，请另行设置。" exit sub End If Isuse=Request("Isuse") If Isuse<>"1" And Isuse<>"0" Then Isuse="1" Isuse=CInt(Isuse) plus_adminpage=Dvbbs.Checkstr(Request("plus_adminpage")) Dim Plus_SettingData,Plus_Setting,i,tmpstr Plus_Setting=Request("Plus_Setting") Plus_Setting=Split(Plus_Setting,vbCrLf) Plus_SettingData="" For i=0 to UBound(Plus_Setting) Plus_Setting(i)=Split(Plus_Setting(i),"=") If UBound(Plus_Setting(i))=1 Then If Plus_SettingData="" Then Plus_SettingData=Trim(Plus_Setting(i)(1)) tmpstr=Trim(Plus_Setting(i)(0)) Else Plus_SettingData=Plus_SettingData&","&Trim(Plus_Setting(i)(1)) tmpstr=tmpstr&","&Trim(Plus_Setting(i)(0)) End If End If Next Plus_SettingData=Plus_SettingData&"|||"&tmpstr&"|||" Dim plusmaster,masterlist plusmaster=Request("plusmaster") plusmaster=split(plusmaster,vbCrLf) masterlist="" For i=0 to UBound(plusmaster) If Trim(plusmaster(i)) <>"" Then If masterlist="" Then masterlist=plusmaster(i) Else masterlist=masterlist&"|"&plusmaster(i) End If End If Next Dim useTime,timesetting,Groupsetting,Plus_UserPost,Plus_userWealth,Plus_UserEP,Plus_UserCP Dim Plus_UserPower,Plus_ADDuserWealth,Plus_ADDUserEP,Plus_ADDUserCP,Plus_ADDUserPower,guestuse useTime=Request("useTime") If useTime="" Then useTime=0 timesetting=Trim(Request("timesetting")) If timesetting="" Then timesetting="0|24" Groupsetting=Replace(Trim(Request("groupid"))&"",",","@") Plus_UserPost=Trim(Request("Plus_UserPost")) If Plus_UserPost="" Then Plus_UserPost=0 Plus_userWealth=Trim(Request("Plus_userWealth")) If Plus_userWealth="" Then Plus_userWealth=0 Plus_UserEP=Trim(Request("Plus_UserEP")) If Plus_UserEP="" Then Plus_UserEP=0 Plus_UserCP=Trim(Request("Plus_UserCP")) If Plus_UserCP="" Then Plus_UserCP=0 Plus_UserPower=Trim(Request("Plus_UserPower")) If Plus_UserPower="" Then Plus_UserPower=0 Plus_ADDuserWealth=Trim(Request("Plus_ADDuserWealth")) If Plus_ADDuserWealth="" Then Plus_ADDuserWealth=0 Plus_ADDUserEP=Trim(Request("Plus_ADDUserEP")) If Plus_ADDUserEP="" Then Plus_ADDUserEP=0 Plus_ADDUserCP=Trim(Request("Plus_ADDUserCP")) If Plus_ADDUserCP="" Then Plus_ADDUserCP=0 Plus_ADDUserPower=Trim(Request("Plus_ADDUserPower")) If Plus_ADDUserPower="" Then Plus_ADDUserPower=0 guestuse=Request("guestuse") tmpstr=useTime&","×etting&","&Groupsetting&","&masterlist&","&plus_UserPost&"," tmpstr=tmpstr&Plus_userWealth&","&Plus_UserEP&","&Plus_UserCP&","&Plus_UserPower&"," tmpstr=tmpstr&Plus_ADDuserWealth&","&Plus_ADDUserEP&","&Plus_ADDUserCP&","&Plus_ADDUserPower&","&guestuse Plus_SettingData=Plus_SettingData&tmpstr set rs=server.createobject("adodb.recordset") sql="select * from dv_plus where id="&request("id")&"" rs.open sql,conn,1,3 Rs("plus_ID")=plusID rs("plus_type")=request("stype") rs("plus_name")=replace(request("title"),CHR(34),"") rs("isuse")=Isuse rs("IsShowMenu")=1 rs("Mainpage")=replace(request("url"),CHR(34),"") rs("plus_Copyright")=replace(request("readme"),CHR(34),"") rs("Plus_Setting")=request("windowtype") & "|" & request("windowwidth") & "|" & request("windowheight")&"|||"&Plus_SettingData Rs("plus_adminpage")=plus_adminpage rs.update rs.close set rs=nothing dv_suc("修改论坛菜单成功") LoadForumPlusMenuCache end sub sub del() Dvbbs.Execute("Delete From Dv_Plus Where ID="&Request("id")&"") dv_suc("删除论坛菜单成功") LoadForumPlusMenuCache end Sub Sub LoadForumPlusMenuCache() Dvbbs.Name="Plus_Settingts" Dim Rs,SQL SQL = "select plus_ID,Plus_Setting,Plus_Name,plus_Copyright from [Dv_plus] Order By ID" Set Rs = Dvbbs.Execute(SQL) If Not Rs.Eof Then Dvbbs.Name="Plus_Settingts" Dvbbs.value = Rs.GetRows(-1) End If Set Rs = Nothing Dvbbs.LoadPlusMenu() End Sub Sub FixPlusTable() Dim Rs,SQL SQL="select * From Dv_plus" Set Rs=Dvbbs.Execute(SQL) If Rs.Fields.Count < 10 Then Set Rs=Nothing Dvbbs.Execute("alter table [Dv_plus] add plus_adminpage varchar(100)") Dvbbs.Execute("alter table [Dv_plus] add plus_id varchar(100)") Set Rs=Dvbbs.Execute(SQL) If Not Rs.Eof Then Do While Not Rs.Eof Dvbbs.execute("update [Dv_plus] set plus_id='newplus"&Rs(0)&"' Where ID="&Rs(0)&"") Rs.MoveNext Loop End If End If Set Rs=Nothing End Sub %>
    论坛插件菜单管理
    注意：这里所添加内容将自动显示于论坛前台的顶部菜单
    新建菜单 | 导出插件模板数据 | 导入插件模板数据
    标题 分类 窗口属性 是否显示 操作
    <%=Rs("Plus_Name")%> <%If Rs("Plus_type")=0 Then%> 一级菜单 <%Else%> <% Set tRs=Dvbbs.Execute("Select * From Dv_Plus Where id="&Rs("Plus_Type")&"") If tRs.Eof And tRs.Bof Then Response.Write "该菜单分类有误，请编辑修正" Else Response.Write tRs("Plus_name") End If %> <%End If%> <% Select Case PSetting(0) Case 0 Response.Write "当前窗口" Case 1 Response.Write "新窗口" Case 2 Response.Write "固定大小窗口，宽"&PSetting(1)&"，高 "&PSetting(2)&"" Case 3 Response.Write "全屏" End Select %> <%If Rs("isuse")=1 Then%>Yes<%Else%>No<%End If%> <% If Rs("plus_adminpage") <> "" Then %> ">管理 | <% End If %> ">编辑 | ">删除